(set MSG_SPACE "\n\n\nWelcome to A-Start v0.87 (c) Tuomas Artman/vPS.\n\nEnjoy this voidParrot Software product.\nPlease remember that this is only a preview version\nand has therefore only a limited number of functions.\nFull A-Start 1.0 version will be released as soon as possible!\n")
(set MSG_DESTINATION "Where would you like A-Start to be installed?\n(The installer will create a directory called\nA-Start in the chosen path.)")
(set MSG_COPYING "Copying A-Start-files to %s.")
(set @abort-button "Abort installation.")
(set MSG_THANKS "\n\n\n\nThank you for using a vPS-product!\nPlease support the author!")
(set MSG_WBS "\n\n\n\nDo you want A-Start to be started\non every boot-up?\n")
(set FSource)
(set Msg_run "\n\n\n\n\nDo you now want to configure A-Start?\nBe adviced that A-StartPrefs needs MUI!\n")
(set osversion (/ (getversion) 65536))
(if (>= osversion 39)
(set guide_reader "MultiView")
(set guide_reader "AmigaGuide")
)
(set installed "")
(complete 0)
(message (MSG_SPACE ))
(set dest_dir
(askdir (prompt (MSG_DESTINATION))
(help @askdir-help)
(default @default-dest)
(newpath))
)
(set dest_dir (tackon dest_dir "A-Start"))
(set @default-dest dest_dir)
(complete 20)
(copyfiles (help @copyfiles-help)
(source "A-StartPrefs")
(dest "Sys:Prefs")
(infos)
)
(complete 40)
(copyfiles (help @copyfiles-help)
(source "A-Start")
(dest @default-dest)
(infos)
)
(complete 60)
(copyfiles (help @copyfiles-help)
(source "Docs")
(dest (tackon @default-dest "Documentation"))
(all)
(infos)
)
(complete 70)
(tooltype (dest "A-StartWBS")
(settooltype "ASPATH" @default-dest)
)
(if
(askbool (prompt MSG_WBS)
(default 1)
(help "If you choose 'YES', the installer will copy A-StartWBS to the 'Sys:WBStartup'-dir. A-StartWBS is a very small program, which launches the A-Start-main-program via the specification of A-Start's path in the ToolTypes of the icon of A-StartWBS.\nConfused? Just press 'Yes'!")
(help "You may now start A-StartPrefs to configure your version of the main program. A-StartPrefs will not work, if you do not have MUI 2.2+ installed.")